home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / mac / files / t_sys5 / 92052tar.gz / 920528.tar / ipcmd.c < prev    next >
C/C++ Source or Header  |  1992-05-14  |  7KB  |  340 lines
  1. /* @(#) $Header: ipcmd.c,v 1.9 92/05/14 13:20:08 deyke Exp $ */
  2.  
  3. /* IP-related user commands
  4.  * Copyright 1991 Phil Karn, KA9Q
  5.  */
  6. #include <stdio.h>
  7. #include "global.h"
  8. #include "mbuf.h"
  9. #include "internet.h"
  10. #include "timer.h"
  11. #include "netuser.h"
  12. #include "iface.h"
  13. #include "ip.h"
  14. #include "cmdparse.h"
  15. #include "commands.h"
  16. #include "rip.h"
  17.  
  18. int32 Ip_addr;
  19.  
  20. static int doadd __ARGS((int argc,char *argv[],void *p));
  21. static int dodrop __ARGS((int argc,char *argv[],void *p));
  22. static int doflush __ARGS((int argc,char *argv[],void *p));
  23. static int doipaddr __ARGS((int argc,char *argv[],void *p));
  24. static int doipstat __ARGS((int argc,char *argv[],void *p));
  25. static int dolook __ARGS((int argc,char *argv[],void *p));
  26. static int dortimer __ARGS((int argc,char *argv[],void *p));
  27. static int dottl __ARGS((int argc,char *argv[],void *p));
  28. static int dumproute __ARGS((struct route *rp));
  29.  
  30. static struct cmds Ipcmds[] = {
  31.     "address",      doipaddr,       0,      0, NULLCHAR,
  32.     "rtimer",       dortimer,       0,      0, NULLCHAR,
  33.     "status",       doipstat,       0,      0, NULLCHAR,
  34.     "ttl",          dottl,          0,      0, NULLCHAR,
  35.     NULLCHAR,
  36. };
  37. /* "route" subcommands */
  38. static struct cmds Rtcmds[] = {
  39.     "add",          doadd,          0,      3,
  40.     "route add <dest addr>[/<bits>] <if name> [gateway] [metric]",
  41.  
  42.     "addprivate",   doadd,          0,      3,
  43.     "route addprivate <dest addr>[/<bits>] <if name> [gateway] [metric]",
  44.  
  45.     "drop",         dodrop,         0,      2,
  46.     "route drop <dest addr>[/<bits>]",
  47.  
  48.     "flush",        doflush,        0,      0,
  49.     NULLCHAR,
  50.  
  51.     "lookup",       dolook,         0,      2,
  52.     "route lookup <dest addr>",
  53.  
  54.     NULLCHAR,
  55. };
  56.  
  57. int
  58. doip(argc,argv,p)
  59. int argc;
  60. char *argv[];
  61. void *p;
  62. {
  63.     return subcmd(Ipcmds,argc,argv,p);
  64. }
  65. static int
  66. doipaddr(argc,argv,p)
  67. int argc;
  68. char *argv[];
  69. void *p;
  70. {
  71.     int32 n;
  72.  
  73.     if(argc < 2) {
  74.         printf("%s\n",inet_ntoa(Ip_addr));
  75.     } else if((n = resolve(argv[1])) == 0){
  76.         printf(Badhost,argv[1]);
  77.         return 1;
  78.     } else
  79.         Ip_addr = n;
  80.     return 0;
  81. }
  82. static int
  83. dortimer(argc,argv,p)
  84. int argc;
  85. char *argv[];
  86. void *p;
  87. {
  88.     return setlong(&ipReasmTimeout,"IP reasm timeout (sec)",argc,argv);
  89. }
  90. static int
  91. dottl(argc,argv,p)
  92. int argc;
  93. char *argv[];
  94. void *p;
  95. {
  96.     return setlong(&ipDefaultTTL,"IP Time-to-live",argc,argv);
  97. }
  98.  
  99. /* Display and/or manipulate routing table */
  100. int
  101. doroute(argc,argv,p)
  102. int argc;
  103. char *argv[];
  104. void *p;
  105. {
  106.     register int i,bits;
  107.     register struct route *rp;
  108.  
  109.     route_loadfile();
  110.     if(argc >= 2)
  111.         return subcmd(Rtcmds,argc,argv,p);
  112.  
  113.     /* Dump IP routing table
  114.      * Dest            Len Interface    Gateway          Use
  115.      * 192.001.002.003 32  sl0          192.002.003.004  0
  116.      */
  117.     printf(
  118. "Dest               Len Interface    Gateway            Metric P   Timer Use\n");
  119.  
  120.     for(bits=31;bits>=0;bits--){
  121.         for(i=0;i<HASHMOD;i++){
  122.             for(rp = Routes[bits][i];rp != NULLROUTE;rp = rp->next){
  123.                 if(dumproute(rp) == EOF)
  124.                     return 0;
  125.             }
  126.         }
  127.     }
  128.     if(R_default.iface != NULLIF)
  129.         dumproute(&R_default);
  130.  
  131.     return 0;
  132. }
  133. /* Add an entry to the routing table
  134.  * E.g., "add 1.2.3.4 ax0 5.6.7.8 3"
  135.  */
  136. static int
  137. doadd(argc,argv,p)
  138. int argc;
  139. char *argv[];
  140. void *p;
  141. {
  142.     struct iface *ifp;
  143.     int32 dest,gateway;
  144.     unsigned bits;
  145.     char *bitp;
  146.     int32 metric;
  147.     char private;
  148.  
  149.     if(strncmp(argv[0],"addp",4) == 0)
  150.         private = 1;
  151.     else
  152.         private = 0;
  153.     if(strcmp(argv[1],"default") == 0){
  154.         dest = 0;
  155.         bits = 0;
  156.     } else {
  157.         /* If IP address is followed by an optional slash and
  158.          * a length field, (e.g., 128.96/16) get it;
  159.          * otherwise assume a full 32-bit address
  160.          */
  161.         if((bitp = strchr(argv[1],'/')) != NULLCHAR){
  162.             /* Terminate address token for resolve() call */
  163.             *bitp++ = '\0';
  164.             bits = atoi(bitp);
  165.         } else
  166.             bits = 32;
  167.  
  168.         if((dest = resolve(argv[1])) == 0){
  169.             printf(Badhost,argv[1]);
  170.             return 1;
  171.         }
  172.     }
  173.     if((ifp = if_lookup(argv[2])) == NULLIF){
  174.         printf("Interface \"%s\" unknown\n",argv[2]);
  175.         return 1;
  176.     }
  177.     if(argc > 3){
  178.         if((gateway = resolve(argv[3])) == 0){
  179.             printf(Badhost,argv[3]);
  180.             return 1;
  181.         }
  182.     } else {
  183.         gateway = 0;
  184.     }
  185.     if (argc > 4)
  186.         metric = atol(argv[4]);
  187.     else
  188.         metric = 1;
  189.  
  190.     if(rt_add(dest,bits,gateway,ifp,metric,0,private) == NULLROUTE)
  191.         printf("Can't add route\n");
  192.     return 0;
  193. }
  194. /* Drop an entry from the routing table
  195.  * E.g., "drop 128.96/16
  196.  */
  197. static int
  198. dodrop(argc,argv,p)
  199. int argc;
  200. char *argv[];
  201. void *p;
  202. {
  203.     char *bitp;
  204.     unsigned bits;
  205.     int32 n;
  206.  
  207.     if(strcmp(argv[1],"default") == 0){
  208.         n = 0;
  209.         bits = 0;
  210.     } else {
  211.         /* If IP address is followed by an optional slash and length field,
  212.          * (e.g., 128.96/16) get it; otherwise assume a full 32-bit address
  213.          */
  214.         if((bitp = strchr(argv[1],'/')) != NULLCHAR){
  215.             /* Terminate address token for resolve() call */
  216.             *bitp++ = '\0';
  217.             bits = atoi(bitp);
  218.         } else
  219.             bits = 32;
  220.  
  221.         if((n = resolve(argv[1])) == 0){
  222.             printf(Badhost,argv[1]);
  223.             return 1;
  224.         }
  225.     }
  226.     return rt_drop(n,bits);
  227. }
  228. /* Force a timeout on all temporary routes */
  229. static int
  230. doflush(argc,argv,p)
  231. int argc;
  232. char *argv[];
  233. void *p;
  234. {
  235.     register struct route *rp;
  236.     struct route *rptmp;
  237.     int i,j;
  238.  
  239.     if(R_default.timer.state == TIMER_RUN){
  240.         rt_drop(0,0);   /* Drop default route */
  241.     }
  242.     for(i=0;i<HASHMOD;i++){
  243.         for(j=0;j<32;j++){
  244.             for(rp = Routes[j][i];rp != NULLROUTE;rp = rptmp){
  245.                 rptmp = rp->next;
  246.                 if(rp->timer.state == TIMER_RUN){
  247.                     rt_drop(rp->target,rp->bits);
  248.                 }
  249.             }
  250.         }
  251.     }
  252.     return 0;
  253. }
  254. /* Dump a routing table entry */
  255. static int
  256. dumproute(rp)
  257. register struct route *rp;
  258. {
  259.     char *cp;
  260.  
  261.     if(rp->target != 0)
  262.         cp = inet_ntoa(rp->target);
  263.     else
  264.         cp = "default";
  265.     printf("%-18.18s ",cp);
  266.     printf("%-4u",rp->bits);
  267.     printf("%-13s",rp->iface->name);
  268.     if(rp->gateway != 0)
  269.         cp = inet_ntoa(rp->gateway);
  270.     else
  271.         cp = "";
  272.     printf("%-18.18s ",cp);
  273.     printf("%-7lu",rp->metric);
  274.     printf("%c ",(rp->flags & RTPRIVATE) ? 'P' : ' ');
  275.     printf("%7lu ",
  276.      read_timer(&rp->timer) / 1000L);
  277.     return printf("%lu\n",rp->uses);
  278. }
  279.  
  280. static int
  281. dolook(argc,argv,p)
  282. int argc;
  283. char *argv[];
  284. void *p;
  285. {
  286.     struct route *rp;
  287.     int32 addr;
  288.  
  289.     addr = resolve(argv[1]);
  290.     if(addr == 0){
  291.         printf("Host %s unknown\n",argv[1]);
  292.         return 1;
  293.     }
  294.     if((rp = rt_lookup(addr)) == NULLROUTE){
  295.         printf("Host %s (%s) unreachable\n",argv[1],inet_ntoa(addr));
  296.         return 1;
  297.     }
  298.     dumproute(rp);
  299.     return 0;
  300. }
  301.  
  302. static int
  303. doipstat(argc,argv,p)
  304. int argc;
  305. char *argv[];
  306. void *p;
  307. {
  308.     register struct reasm *rp;
  309.     register struct frag *fp;
  310.     int i;
  311.  
  312.     for(i=1;i<=NUMIPMIB;i++){
  313.         printf("(%2u)%-20s%10lu",i,
  314.          Ip_mib[i].name,Ip_mib[i].value.integer);
  315.         if(i % 2)
  316.             printf("     ");
  317.         else
  318.             printf("\n");
  319.     }
  320.     if((i % 2) == 0)
  321.         printf("\n");
  322.  
  323.     if(Reasmq != NULLREASM)
  324.         printf("Reassembly fragments:\n");
  325.     for(rp = Reasmq;rp != NULLREASM;rp = rp->next){
  326.         printf("src %s",inet_ntoa(rp->source));
  327.         printf(" dest %s",inet_ntoa(rp->dest));
  328.         if(printf(" id %u pctl %u time %lu len %u\n",
  329.          rp->id,uchar(rp->protocol),read_timer(&rp->timer),
  330.          rp->length) == EOF)
  331.             break;
  332.         for(fp = rp->fraglist;fp != NULLFRAG;fp = fp->next){
  333.             if(printf(" offset %u last %u\n",fp->offset,
  334.             fp->last) == EOF)
  335.                 break;
  336.         }
  337.     }
  338.     return 0;
  339. }
  340.